home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / sauter.zip / MAKE_MF.BTM < prev    next >
Text File  |  1990-11-19  |  2KB  |  73 lines
  1. @echo off
  2. : 4Dos Batch file--
  3. : Make mf source files.
  4.  
  5. : Adjust "standard" sizes (11.14.17.20.25.30) to nearest power of 1.2
  6. : to match magnified 10-pt font.
  7.  
  8. set OUTDIR=`c:\l\mf\sauter\mf`
  9. set SAUTER=`c:\l\mf\sauter`
  10.  
  11. iff %# LT 2 then
  12.    echo "Usage: $0 family_name size [size ...]."
  13.    exit
  14. endiff
  15.  
  16. : Remember the family name (e.g., ``cmr'').
  17. set family = %1
  18. shift
  19.  
  20. iff not isdir %OUTDIR then
  21.    iff exist %OUTDIR then
  22.       echo File "%OUTDIR" exists and is not a directory.
  23.       echo You must move this file or change the output directory.
  24.       quit
  25.    else
  26.       md %OUTDIR
  27.    endiff
  28. endiff
  29.  
  30.  
  31.  
  32. :do_sizes
  33.  
  34. if "%1" EQ "" goto done
  35.  
  36. set size = %1
  37.  
  38.    set name_size = %@eval[%size]
  39.    set mf_name = %family%%name_size%.mf
  40.    echo %family%%name_size >> %SAUTER\l-new
  41.  
  42. : The Computer Modern point sizes are based on the 1.2 ratio.
  43. : rem Delete this switch statement if you prefer to have point
  44. : sizes that are exactly what you type.
  45.  
  46.     if %size EQ 11 set size = 10.954451
  47.     if %size EQ 14 set size = 14.4
  48.     if %size EQ 17 set size = 17.28
  49.     if %size EQ 20 set size = 20.736
  50.     if %size EQ 25 set size = 24.8832
  51.     if %size EQ 30 set size = 29.8685984
  52.  
  53. : Make sure it doesn't exist already.    
  54.  
  55.    iff exist %OUTDIR\%mf_name then
  56.       echo "%mf_name" exists already, so I won't change it.
  57.    else
  58.       echo `% `%size-point %family. > %OUTDIR\%mf_name
  59.       echo `design_size := `%size; >> %OUTDIR\%mf_name
  60.       echo `input b-`%family%`;` >> %OUTDIR\%mf_name
  61.    endiff
  62.  
  63.  
  64. shift   
  65. goto do_sizes
  66.  
  67.  
  68. : Come back to where we were.
  69.  
  70. :done
  71.  
  72. quit
  73.